﻿Module Module1
  Sub Main()

    Dim obj As Object
    obj = New DateTime(2007, 12, 10)
    Dim dt As DateTime
    dt = obj
    Console.WriteLine(dt.Year)

  End Sub
End Module
